Dim TaxRateTbl As New DataSet1()
Dim tmpTaxRate As Double
SqlDataAdapter1.SelectCommand.Parameters("@City").Value = txCity
SqlDataAdapter1.SelectCommand.Parameters("@State").Value = txState
TaxRateTbl.Clear()
SqlDataAdapter1.Fill(TaxRateTbl)
tmpTaxRate = TaxRateTbl.TaxRates.Item(0).TaxRate
TaxAmt = SaleAmt * tmpTaxRate